home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Tele / G / GEnieDL'er.cpt / Wait to DL < prev   
Encoding:
Text File  |  1988-08-10  |  743 b   |  24 lines  |  [TEXT/MACA]
  1.  Settings File = GEnie-upl
  2.  Script Name = Wait to DL
  3.  Command Key = 
  4.  F-key = 
  5.  Menu = NO
  6.  Button = NO
  7.  
  8. 1   Set Variable GOtime from Dialog Box  "Please enter time you wish to start batch download (HH:MM)"
  9. 2   If Expression  "=LENGTH(GOtime)=0"
  10. 3     Return Failure 
  11. 4   End If
  12. 5   Notify Discard  
  13. 6   Dialog Discard  
  14. 7   Dialog Install  "='Waiting until...: ',GOtime"
  15. 8   Wait Until Time  "=GOtime"
  16. 9   Dialog Discard  
  17. 10  Beep
  18. 11  Dialog Install  "Going on line now..."
  19. 12  Remark "The following var is used to determine action on timeout error"
  20. 13  Set Variable TimeOutRecover from Expression  "=true"
  21. 14  Set Variable online from Expression  "=false"
  22. 15  Do Script * "Batch DL"
  23. 16  Set Variable TimeOutRecover from Expression  "=false"
  24.